X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground_2%2Fsteps%2Frtc.ma;h=151e6e5a1dcc21395cb813def4bc2fa15a449efc;hb=d8d00d6f6694155be5be486a8239f5953efe28b7;hp=1e08d2474be31943ed50dcfd6fd1e55c50051768;hpb=ff612dc35167ec0c145864c9aa8ae5e1ebe20a48;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/ground_2/steps/rtc.ma b/matita/matita/contribs/lambdadelta/ground_2/steps/rtc.ma
index 1e08d2474..151e6e5a1 100644
--- a/matita/matita/contribs/lambdadelta/ground_2/steps/rtc.ma
+++ b/matita/matita/contribs/lambdadelta/ground_2/steps/rtc.ma
@@ -12,6 +12,7 @@
 (*                                                                        *)
 (**************************************************************************)
 
+include "ground_2/xoa/ex_1_2.ma".
 include "ground_2/notation/functions/tuple_4.ma".
 include "ground_2/notation/functions/zerozero_0.ma".
 include "ground_2/notation/functions/zeroone_0.ma".
@@ -43,7 +44,7 @@ definition eq_f: relation rtc ≝ λc1,c2. ⊤.
 
 inductive eq_t: relation rtc ≝
 | eq_t_intro: ∀ri1,ri2,rs1,rs2,ti,ts.
-              eq_t (〈ri1, rs1, ti, ts〉) (〈ri2, rs2, ti, ts〉)
+              eq_t (〈ri1,rs1,ti,ts〉) (〈ri2,rs2,ti,ts〉)
 .
 
 (* Basic properties *********************************************************)