X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Fjsx.ma;h=685ff2a369facfe57b60b680c1a4adde330634ec;hb=d8d00d6f6694155be5be486a8239f5953efe28b7;hp=9521a9b27d932915d530e24ceed3928fdf979940;hpb=f76594123e375bd7852c9421fe260a7bec693a92;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/jsx.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/jsx.ma
index 9521a9b27..685ff2a36 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/jsx.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/jsx.ma
@@ -12,6 +12,7 @@
 (*                                                                        *)
 (**************************************************************************)
 
+include "ground_2/xoa/ex_4_3.ma".
 include "basic_2/notation/relations/topredtysnstrong_4.ma".
 include "basic_2/rt_computation/rsx.ma".
 
@@ -72,7 +73,7 @@ lemma jsx_inv_pair_sn (h) (G):
        | ∃∃K2. G ⊢ K1 ⊒[h] K2 & G ⊢ ⬈*[h,V] 𝐒⦃K2⦄ & L2 = K2.ⓧ.
 #h #G #I #K1 #L2 #V #H elim (jsx_inv_bind_sn … H) -H *
 [ /3 width=3 by ex2_intro, or_introl/
-| #J #K2 #X #HK12 #HX #H1 #H2 destruct /3 width=4 by ex3_intro, or_intror/ 
+| #J #K2 #X #HK12 #HX #H1 #H2 destruct /3 width=4 by ex3_intro, or_intror/
 ]
 qed-.