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

diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpm_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpm_drops.ma
index b6298c766..bc9463c95 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpm_drops.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpm_drops.ma
@@ -67,7 +67,7 @@ qed.
 
 lemma cpm_inv_atom1_drops: ∀n,h,I,G,L,T2. ⦃G,L⦄ ⊢ ⓪{I} ➡[n,h] T2 →
                            ∨∨ T2 = ⓪{I} ∧ n = 0
-                            | ∃∃s. T2 = ⋆(next h s) & I = Sort s & n = 1
+                            | ∃∃s. T2 = ⋆(⫯[h]s) & I = Sort s & n = 1
                             | ∃∃K,V,V2,i. ⬇*[i] L ≘ K.ⓓV & ⦃G,K⦄ ⊢ V ➡[n,h] V2 &
                                           ⬆*[↑i] V2 ≘ T2 & I = LRef i
                             | ∃∃m,K,V,V2,i. ⬇*[i] L ≘ K.ⓛV & ⦃G,K⦄ ⊢ V ➡[m,h] V2 &