X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2A%2Fcomputation%2Fcprs_cprs.ma;h=68601b554061d56580c0171b7372c7f835f1b021;hb=68b4f2490c12139c03760b39895619e63b0f38c9;hp=79500576b331de6da40c2ed6373343b956138c9c;hpb=d2545ffd201b1aa49887313791386add78fa8603;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2A/computation/cprs_cprs.ma b/matita/matita/contribs/lambdadelta/basic_2A/computation/cprs_cprs.ma
index 79500576b..68601b554 100644
--- a/matita/matita/contribs/lambdadelta/basic_2A/computation/cprs_cprs.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2A/computation/cprs_cprs.ma
@@ -12,6 +12,7 @@
 (*                                                                        *)
 (**************************************************************************)
 
+include "ground/xoa/ex_4_5.ma".
 include "basic_2A/reduction/lpr_lpr.ma".
 include "basic_2A/computation/cprs_lift.ma".
 
@@ -125,7 +126,7 @@ lemma cpr_bind2: ∀G,L,V1,V2. ⦃G, L⦄ ⊢ V1 ➡ V2 → ∀I,T1,T2. ⦃G, L.
 
 (* Basic_1: was only: pr3_pr2_pr3_t pr3_wcpr0_t *)
 lemma lpr_cprs_trans: ∀G. s_rs_transitive … (cpr G) (λ_. lpr G).
-#G @s_r_trans_LTC1 /2 width=3 by lpr_cpr_trans/ (**) (* full auto fails *)
+#G @s_r_trans_CTC1 /2 width=3 by lpr_cpr_trans/ (**) (* full auto fails *)
 qed-.
 
 (* Basic_1: was: pr3_strip *)