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_tdeq.ma;h=7f05e3b1c0e1c4ce84631abb0c8ffc4f8e447be2;hp=b99c4309c47dcfb56448a9df3e727f69110c1112;hb=647b419e96770d90a82d7a9e5e8843566a9f93ee;hpb=f308429a0fde273605a2330efc63268b4ac36c99

diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpm_tdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpm_tdeq.ma
index b99c4309c..7f05e3b1c 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpm_tdeq.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpm_tdeq.ma
@@ -32,7 +32,7 @@ qed-.
 lemma cpm_tdeq_inv_atom_sn (n) (h) (I) (G) (L):
                            ∀X. ⦃G,L⦄ ⊢ ⓪{I} ➡[n,h] X → ⓪{I} ≛ X →
                            ∨∨ ∧∧ X = ⓪{I} & n = 0
-                            | ∃∃s. X = ⋆(next h s) & I = Sort s & n = 1.
+                            | ∃∃s. X = ⋆(⫯[h]s) & I = Sort s & n = 1.
 #n #h * #s #G #L #X #H1 #H2
 [ elim (cpm_inv_sort1 … H1) -H1
   cases n -n [| #n ] #H #Hn destruct -H2