]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/static_2/relocation/lifts_tweq.ma
update in ground_2, static_2, basic_2
[helm.git] / matita / matita / contribs / lambdadelta / static_2 / relocation / lifts_tweq.ma
index addd91c72cce3e386302d3cf32ad357b8715907f..45f8a383f7b47aea42919f79b1cc575a42f4c3a3 100644 (file)
@@ -48,7 +48,7 @@ lemma tweq_lifts_sn: liftable2_sn tweq.
 | #V1 #V2 #T1 #T2 #_ #_ #IHV #IHT #f #X #H
   elim (lifts_inv_flat1 … H) -H #W1 #U1 #HVW1 #HTU1 #H destruct
   elim (IHV … HVW1) -V1 #W2 #HVW2 #HW12
-  elim (IHT … HTU1) -T1 #U2 #HTU2 #HU12 
+  elim (IHT … HTU1) -T1 #U2 #HTU2 #HU12
   /3 width=5 by lifts_flat, tweq_cast, ex2_intro/
 ]
 qed-.
@@ -96,8 +96,8 @@ lemma tweq_inv_lifts_bi: deliftable2_bi tweq.
 ]
 qed-.
 
-lemma tweq_inv_abbr_pos_x_lifts_y_y (T) (f:rtmap):
-      â\88\80V,U. +â\93\93V.U â\89\85 T â\86\92 â¬\86*[f]T ≘ U → ⊥.
+lemma tweq_inv_abbr_pos_x_lifts_y_y (T) (f):
+      â\88\80V,U. +â\93\93V.U â\89\85 T â\86\92 â\87§*[f]T ≘ U → ⊥.
 @(f_ind … tw) #n #IH #T #Hn #f #V #U #H1 #H2 destruct
 elim (tweq_inv_abbr_pos_sn … H1) -H1 #X1 #X2 #HX2 #H destruct -V
 elim (lifts_inv_bind1 … H2) -H2 #Y1 #Y2 #_ #HXY2 #H destruct