X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Fcpx_drops.ma;h=500929b1d35f82a6531189142ee6125c011a6698;hp=9f135086438a01bcda7b478bf51dd8c14a4d0681;hb=647b419e96770d90a82d7a9e5e8843566a9f93ee;hpb=f308429a0fde273605a2330efc63268b4ac36c99

diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_drops.ma
index 9f1350864..500929b1d 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_drops.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_drops.ma
@@ -32,7 +32,7 @@ qed.
 (* Basic_2A1: was: cpx_inv_atom1 *)
 lemma cpx_inv_atom1_drops: ∀h,I,G,L,T2. ⦃G,L⦄ ⊢ ⓪{I} ⬈[h] T2 →
                            ∨∨ T2 = ⓪{I}
-                            | ∃∃s. T2 = ⋆(next h s) & I = Sort s
+                            | ∃∃s. T2 = ⋆(⫯[h]s) & I = Sort s
                             | ∃∃J,K,V,V2,i. ⬇*[i] L ≘ K.ⓑ{J}V & ⦃G,K⦄ ⊢ V ⬈[h] V2 &
                                             ⬆*[↑i] V2 ≘ T2 & I = LRef i.
 #h #I #G #L #T2 * #c #H elim (cpg_inv_atom1_drops … H) -H *